##Volunteered
trackAwomen<-c(0.299, 0.618)
trackAwomen.se<-c(0.018, 0.018)
trackAmen<-c(0.492, 0.834)
trackAmen.se<-c(0.018, 0.018)
trackBwomen<-c(0.335,0.705)
trackBwomen.se<-c(0.01, 0.01)
trackBmen<-c(0.594, 0.819)
trackBmen.se<-c(0.018, 0.018)
trackCwomen<-c(0.294,0.686)
trackCwomen.se<-c(0.018, 0.018)
trackCmen<-c(0.548, 0.812)
trackCmen.se<-c(0.018, 0.018)

var.names<-c("Baseline", "Endline")
x.axis<-length(var.names):0.5
adjust<-.05

par(mar=c(5,5,2,2),lheight=.5, pty="s")
plot(x.axis+1.5*adjust, trackAwomen, type="p", axes=F, xlab="",ylab="Ever Voluntered During Elections",pch=24,col="magenta",cex=1.5,ylim=c(0.1,0.9),xlim=c(max(x.axis+.1), min(x.axis-.1)),main="", cex.axis=1.5, cex.lab=1.5)
axis(2,pretty(c(0,1),10), cex.axis=1.5)
axis(1,at=x.axis,label=var.names,las=1,tick=T,cex.axis=1.5)
box=(bty="o")
segments(x.axis+1.5*adjust,trackAwomen-qnorm(0.95)*trackAwomen.se, x.axis+1.5*adjust, trackAwomen+qnorm(.95)*trackAwomen.se, lwd=1.5, col="magenta")

segments(x.axis+1.5*adjust,trackAmen-qnorm(.95)*trackAmen.se, x.axis+1.5*adjust, trackAmen+qnorm(.95)*trackAmen.se, lwd=1.5, col="blue")
points(x.axis+1.5*adjust,trackAmen, pch=21,cex=1.5,col="blue")

segments(x.axis,trackBwomen-qnorm(.95)*trackBwomen.se, x.axis, trackBwomen+qnorm(.95)*trackBwomen.se, lwd=1.5, col="magenta")
points(x.axis,trackBwomen, pch=17,cex=1.5,col="magenta")

segments(x.axis,trackBmen-qnorm(.95)*trackBmen.se, x.axis, trackBmen+qnorm(.95)*trackBmen.se, lwd=1.5, col="blue")
points(x.axis,trackBmen, pch=19,cex=1.5,col="blue")

#segments(x.axis-1.5*adjust,trackCwomen-qnorm(.95)*trackCwomen.se, x.axis-1.5*adjust, trackCwomen+qnorm(.95)*trackCwomen.se, lwd=1.2, col="red")
#points(x.axis-1.5*adjust,trackCwomen, pch=23,cex=1,bg="red")

#segments(x.axis-1.5*adjust,trackCmen-qnorm(.95)*trackCmen.se, x.axis-1.5*adjust, trackCmen+qnorm(.95)*trackCmen.se, lwd=1.2, col="blue")
#points(x.axis-1.5*adjust,trackCmen, pch=23,cex=1,bg="blue")


#add legend
legend(1.5,.4, c("Efficacy-Men", "InfoOnly-Men", "Efficacy-Women", "InfoOnly-Women"), pch=c(19,21,17,24),col=c("blue","blue","magenta","magenta"), bty="o", cex=1.5)


